home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V1D3.D64 / maze demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.4 KB  |  128 lines
  1. 100 PRINT"[147]         *** MICRO-MAZE ***"
  2. 110 PRINT"IN THIS GAME,YOU HAVE TO MAKE YOUR WAY"
  3. 120 PRINT"THROUGH A MAZE,BUT THE SCREEN WILL SHOW"
  4. 130 PRINT"THE VIEW FROM INSIDE THE MAZE,INSTEAD OF";
  5. 140 PRINT"FROM ABOVE IT. YOU CAN TURN LEFT,RIGHT,"
  6. 150 PRINT"GO STRAIGHT ON OR BACKWARDS AT EACH"
  7. 160 PRINT"JUNCTION,BY TYPING L,R,F(FORWARDS) OR B.";
  8. 170 PRINT"IF YOU WANT TO SEE THE MAZE FROM ABOVE"
  9. 180 PRINT"TYPE 'H',BUT EACH TIME YOU DO THIS YOUR"
  10. 190 PRINT"SCORE WILL LESSEN. THIS IS A DEMO OF IT"
  11. 200 PRINT"    PRESS ANY KEY TO START THE DEMO"
  12. 210 GETA$:IFA$=""THEN210
  13. 215 POKE53280,0
  14. 220 PRINT"[147]":POKE53281,0:DIMA(8,8),C$(15),D(4),E(4),T(3),L(15),R(15)
  15. 225 A=0:B=0:C=0
  16. 230 FORX=1TO8:FORY=1TO8:READA(X,Y):NEXT:NEXT
  17. 240 FORX=0TO15:READR(X),L(X):NEXT
  18. 250 FORX=1TO4:READD(X),E(X):NEXT
  19. 260 FORX=0TO15:FORY=1TO3:READC$:C$(X)=C$(X)+C$:IFY<3THENC$(X)=C$(X)+"[157][157][157]"
  20. 270 NEXT:NEXT
  21. 300 H=0:N=0:PX=1:PY=1:RX=8:RY=8:D=1
  22. 310 GOSUB2000:GOSUB4000
  23. 320 IFPX<>RXORPY<>RYTHENN=N+1:GOTO310
  24. 330 PRINT"[147]AMAZE[146]ING!":PRINT"YOU'VE DONE IT!"
  25. 340 PRINT"YOUR SCORE IS";
  26. 344 S=50-H*2-N
  27. 345 PRINT-(S>0)*S;"OUT OF 25."
  28. 350 END
  29. 1000 A=1073:B=1913:C=21:GOSUB9000
  30. 1010 A=1278:B=1718:C=11:GOSUB9000
  31. 1020 IFE>1THENA=1401:B=1601:C=5:GOSUB9000
  32. 1030 IFE>2THENA=1442:B=1562:C=3:GOSUB9000
  33. 1040 RETURN
  34. 2000 PRINT"[147]"
  35. 2010 GOSUB5000:GOSUB1000
  36. 2020 FORX=1TOE:I=T(X):J=IAND1:K=IAND2:L=IAND4
  37. 2030 IFJTHENGOSUB2200
  38. 2040 IFKTHENGOSUB2100
  39. 2050 IFLTHENGOSUB2300
  40. 2060 IFJ=0THENGOSUB2400
  41. 2070 IFL=0THENGOSUB2500
  42. 2080 NEXTX
  43. 2090 RETURN
  44. 2100 ONXGOTO2110,2120,2130
  45. 2110 A=1239:B=1248:C=520:GOTO6000
  46. 2120 A=1362:B=1365:C=280:GOTO6000
  47. 2130 A=1403:B=1404:C=200:GOTO6000
  48. 2200 ONXGOTO2210,2220,2230
  49. 2210 A=1074:B=1238:GOSUB7000:A=1758:B=1914:GOTO8000
  50. 2220 A=1279:B=1361:GOSUB7000:A=1641:B=1719:GOTO8000
  51. 2230 POKE1402,77:POKE1602,78:RETURN
  52. 2300 ONXGOTO2310,2320,2330
  53. 2310 A=1093:B=1249:GOSUB8000:A=1769:B=1933:GOTO7000
  54. 2320 A=1288:B=1366:GOSUB8000:A=1646:B=1728:GOTO7000
  55. 2330 POKE1405,78:POKE1605,77:RETURN
  56. 2400 ONXGOTO2410,2420,2430
  57. 2410 A=1234:B=1238:C=520:GOTO6000
  58. 2420 A=1359:B=1361:C=280:GOTO6000
  59. 2430 POKE1402,100:POKE1602,99:RETURN
  60. 2500 ONXGOTO2510,2520,2530
  61. 2510 A=1249:B=1253:C=520:GOTO6000
  62. 2520 A=1366:B=1368:C=280:GOTO6000
  63. 2530 POKE1405,100:POKE1605,99:RETURN
  64. 3000 FORX=1TO8:FORY=1TO8:Q=A(X,Y)
  65. 3010 PRINTC$(Q)"[145][145]";
  66. 3020 NEXT:PRINT"":NEXT:H=H+1
  67. 3030 POKE1065+(PY-1)*3+(PX-1)*120,42
  68. 3040 POKE1065+(RY-1)*3+(RX-1)*120,134
  69. 3050 GETA$:IFA$=""THEN3050
  70. 3060 PRINT"[147]":RETURN
  71. 4000 REM
  72. 4010 READA$
  73. 4020 IFA$="H"THENPRINT"[147]";:GOSUB3000:GOSUB2010:GOTO4000
  74. 4030 IFA$="F"AND(T(1)AND2)=0THEN4080
  75. 4040 IFA$="B"AND(T(1)AND8)=0THEN4110
  76. 4050 IFA$="L"AND(T(1)AND1)=0THEN4130
  77. 4060 IFA$="R"AND(T(1)AND4)=0THEN4150
  78. 4065 IFA$=""THENPRINT"[147]":END
  79. 4070 GOTO4010
  80. 4080 PM=PX:PN=PY:PX=PX+D(D):PY=PY+E(D)
  81. 4090 IFPX<1ORPX>8ORPY<1ORPY>8THENPX=PM:PY=PN:GOTO4010
  82. 4100 RETURN
  83. 4110 D=D+2:IFD>4THEND=D-4
  84. 4120 GOTO4080
  85. 4130 D=D-1:IFD=0THEND=4
  86. 4140 GOTO4080
  87. 4150 D=D+1:IFD=5THEND=1
  88. 4160 GOTO4080
  89. 5000 X=PX:Y=PY:T(1)=A(X,Y):E=1
  90. 5010 E=E+1:X=X+D(D):Y=Y+E(D):IFX<1ORX>8ORY<1ORY>8THENE=E-1:GOTO5040
  91. 5020 E=E+1:T(2)=A(X,Y):X=X+D(D):Y=Y+E(D):IFX<1ORX>8ORY<1ORY>8THENE=E-1:GOTO5040
  92. 5030 T(3)=A(X,Y)
  93. 5040 FORX=1TOE
  94. 5050 IFD<3THENT(X)=R(T(X))
  95. 5060 IFD=3THENT(X)=L(T(X))
  96. 5070 IFD=2THENT(X)=R(T(X))
  97. 5080 NEXT:FORX=1TOE
  98. 5090 IF(T(X)AND2)>0THENE=X:RETURN
  99. 5100 NEXT:RETURN
  100. 6000 FORY=ATOB:POKEY,100:POKEY+C,99:NEXT:RETURN
  101. 7000 FORY=ATOBSTEP41:POKEY,77:NEXT:RETURN
  102. 8000 FORY=ATOBSTEP39:POKEY,78:NEXT:RETURN
  103. 9000 FORY=ATOBSTEP40:POKEY,103:POKEY+C,101:NEXT:RETURN
  104. 9500 DATA11,2,6,3,10,14,7,7,3,4,1,0,2,10,8,4
  105. 9510 DATA5,13,5,13,1,14,11,12,9,6,9,14,9,6,3,14
  106. 9520 DATA3,4,3,6,3,8,8,6,9,12,5,9,8,10,10,12
  107. 9530 DATA3,2,12,3,2,10,2,6,13,9,10,12,9,14,13,13
  108. 9540 DATA0,0,8,2,1,4,9,6,2,8,10,10,3,12,11,14,4,1,12,3,5,5
  109. 9550 DATA13,7,6,9,14,11,7,13,15,15
  110. 9560 DATA0,1,1,0,0,-1,-1,0
  111. 9570 DATA"[166] [166]","   ","[166] [166]"
  112. 9580 DATA"[166] [166]","[166]  ","[166] [166]"
  113. 9590 DATA"[166][166][166]","   ","[166] [166]"
  114. 9600 DATA"[166][166][166]","[166]  ","[166] [166]"
  115. 9610 DATA"[166] [166]","  [166]","[166] [166]"
  116. 9620 DATA"[166] [166]","[166] [166]","[166] [166]"
  117. 9630 DATA"[166][166][166]","  [166]","[166] [166]"
  118. 9640 DATA"[166][166][166]","[166] [166]","[166] [166]"
  119. 9650 DATA"[166] [166]","   ","[166][166][166]"
  120. 9660 DATA"[166] [166]","[166]  ","[166][166][166]"
  121. 9670 DATA"[166][166][166]","   ","[166][166][166]"
  122. 9680 DATA"[166][166][166]","[166]  ","[166][166][166]"
  123. 9690 DATA"[166] [166]","  [166]","[166][166][166]"
  124. 9700 DATA"[166] [166]","[166] [166]","[166][166][166]"
  125. 9710 DATA"[166][166][166]","  [166]","[166][166][166]"
  126. 9720 DATA"[166][166][166]","[166] [166]","[166][166][166]"
  127. 9730 DATAF,F,R,L,F,R,F,L,R,R,L,R,R,L,L,F,R,L,L,F,L,R,F,F,F,R
  128.